dim doc
set doc = application.ActiveDocument
if doc.LayerEnabled(110) = true then
	Application.ModelessCmd("l 110")
end if